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title pli$ ic = convert numeric and picture 
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00 ; 

00 ;++ 

o8 ; facility: 

+ VAX/VMS PL1 Run-Time Library. 
0 ; abstract: 


; This module contains routines to convert numeric to picture and picture 
to numeric. 


; author: R. Heinen 21-JAN-1980 


; modified on 13-Feb-1981 by R. Heinen 7 
; fixed problem with convert from overpunched sign character. 


1-002 Bill Matthews 29-September-1982 
Invoke macros $defdat and rtshare instead of $defopr and share. 
1-003 Chip Nylander 04-April-1983 


; Fix conversion to picture with Shoat ing sign and no non-zero 
: digits to the left of the decimal point. 


The fix is as follows: when there is a floating sign, the 

3 floating sign must be placed into the picture when 

: significance is established. sign ficance is established 

; in three ways: any non-zero digit in the source, any Sat? 

: non-suppressed digit in the picture specification (e.g. ‘9''), 


. 
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eet : evi ~Seei13be SFibe:Fe FARINAS Bacse VOU OO. wary 2% chy 
099 28 : or an overt significance specifier (‘'v''). 
60 : Move_zero_supress aire move digits take care of the first 
0 8 61 ; two Cases. The third case was previousty neglected; 
0 8 86 ; set Stoniitcance: now takes care of it 
909 64 :-- 
00 65 
000 06 3 
000 67 ; external definitions 
000 68 ; 
44 $3 ; $defpic ; define picture constant 
0000 71: Local definitions 
0000 Lf; 3 
48 te ; define arguments for both routines 
00000004 0000 75° picture_constant = 4 : 
00000008 0000 76 source_Size = 8 3 
0000000C 0000 77 source_address = 12 3 
00000010 0000 78 target_size = 16 3 
00000014 4 4 target_address = 20 ; 
0000 81; 
+44 Hf 3; define stack for numeric to picture 
FFFFFFFC 0000 84 ° sign = -4 3 n byte 
FFFFFFFB 0000 85 float 2 <§ : float byte 
HTT QO} gp Hpnittcance 5 3 tele toe 
FFFFFFF8 0000 88 ak indic = -8 : zero indicator 
00000009 4 34 cvt_to “pic. stack= 9 3 size of stack 
0000 91 ; : 
9444 3 3; define picture to numeric stack 
FFFFFFFC 0000 94° found_sign = 4 ; sign found 
FFFFFFD8 0000 95 inter_result = -40 3 aytee of storage for numeric value 
00000028 8608 39 cvt_ff_pic_stack= 40 s it 
0000 98 ; 
444 99 ; local data 
0000 100; 0 
808 101 rtshare 
0 1 ; 3 
si 48 } ; 3; conversion tables for over punch 
000 105 plus nch: 
49 4B 47 46 45 44 43 42 41 7B 9000 19¢ Pus aONS Byte. 123,65,66,67,68,69,70,71,72,73 
OOA 107 minus _over_ F~pune 
52 51 50 4F 4E 4D 4C 4B 4A 7D ea 198 i25, 74,75,76,77,78,79,80,81,82 
oc o014 110 Packet rere: cked 0 
ac 
O15 111 valid_char F table: 
2k 20 b& ae OS 2S 3a 2C OE OF DD 28 e448 i] (gugsesergey 
— 
9 48 47 46 45 44 5 42 41 7B $628 114 .byte 123, 4° ew 67, 68, 69,70,71,72,73 
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52 51 50 4F 4E 4D 4C 4B 4A 7D 5 115 ebyte 125,74,75,76,77,78,79,80,81,82 
0000002A f 118 v valid_char_size = .-valid_char_table 
F 117 over Bunch. value: 
30 31 32 33 34 35 6 37 8 9 g F118 Sci} 1098 7$543210/ ; 0,R,Q,P,0.N.M,L,K,J,) 
0 31 32 33 34 35 36 8 04A 119 “ascii 19876543210/ ; 1,H,G,F,E,D,C,B,A,¢ 
33 30 34 30 30 30 0054 120 ascii /000403/ : pick up extra D anc C 
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5B 04 AC 
06 AB 
03 
Q0A5 
5E 09 
58 OC AC 
56 4 AC 
ofied. 
50 09 AC 
59. 68 

52 ” 
E 9 
6€ 59 00 68 56 § 
i 8 
E 6 
E 
FB AD 
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* ~sbttl pliScvt_to_pic = convert numeric to picture 

pli$cvt_to_pic = convert numeric to picture 

functional description: 

This routine converts a packed decimal string described by source_size(ap) 
and source_address(ap) to a character string described by target size(ap) 


and target_address(ap) based on the picture constant block addressed by 
picture_constant(ap). 


inputs: 
O(ap) = 5 
4(ap) = picture_constant address 
8(ap) = source size 
12(ap) = source address 
16(ap) = target size 
20(ap) = target address 
outputs: 


target string is filled in. 
ERROR maybe signalled. 


entry pliS$cvt_to_pic,“m<iv,dv,r2.r3,°4,75,r6,r7,r78,r9,r10,r11> 
mov l picture constant (ap) .r1f; address picture constant 
ELF sengengesr se: 3 type runtime? 


beql ; if eql then yes 


: process editpc type 


7$: 


Se Wire Oe ee 
bed 
ee 


brw error 3; temp---- error 
interpret subroutine at runtime 
subl 


convert source string to internal buffer 


#cvt_to_pic_stack,sp ; allocate stack space 


mov l source_address(ap),r8 ; get address of the source string 

movzbl source_size(ap),r6 : gst source digit size 

cmpw source_size(ap) .picSu_pqir 1); source same p,q as result? 
eql $ 3 continue yes 

movzbl sources izee! (ag) .r0 3; get scale of source 

movzbl pic$w_pq(ri1),r 3; get size of result 

movzbl pic$w pqtl(rif).r2 : get scale of result 

subl r0.r2 3; Source - result = shift 

subl 3-8 ; allocate space for shift 

ash reer (78) ,#0.r9.(sp)  ; 

mov r9,r6 ; use new size 

movab (sp),r8 ; address it 

subl r6,sp ; allocate room for result 

decl sp ; allocate for sign 

clrb zero_indic(fp) 3; assume zero 
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6— 56 68 88 98 oF gvtes r6,(r8),r5,(sp) 3 convert to character 
1 AS eq ; if eql then zero 
FB AD 96 A ncb zero_indic(fp) ; set non zero 


: blank out the target field in case of error 


10 ac 3=620)—s 14 . 4 2c 10s: moveS #0,atarget_address(ap) ,#32,target_size(ap) ,atarget_address(ap); 


: initialize the assumed values 


: clrb — float (fp float is undefined 


adn) 
>ow 


SHOODOODD >> >> 
RODOVUMIININIG OOOO 


AD 9 ) 3 
AD 9 clrb oi9n*s teence( fp : sign ficance is off 
F9 AD 620) 90 movb #*a/ /, fill (fp : fill begins as blank 
51 6€ 4 3 movab (sp) orf ; address source string ( move side effect) 
FC AD 3 9 movb (ri), sign( fp) 3 get sign 
2B 1 91 c3 cmpob (r1)+,#*a/+/ 3; positive? 
Beh C8 beql 15$ s V¥ sgt then yes 
40 05 AB (04~—SCOCE 5 bbc #pic_v_has_sign,pic$b_flags(ril),error; else must have sign specifie 
$2 : allocate space for initial target string 
50 04 AB 9A CD 15s: movzbl pic$b_byte_size(ri1),r0 ; get max size of target 
2f 50 C2 D1 subl r0.sp 3; allocate the space 
5 6—E 9E D4 movab (sp),r3 3; address it ( move side effect ) 
5A 08 AB 9E 4 movab pic$b_program(r11),r10 ; address edit program 
: main loop of interpreter 
tetch_next: 
: interpret edit program 
52 BA 9A 7 movzbl (r10)+,r2 3 get opcode 
50 8A 9A movzbl (r10)+,r0 3; get argument 
case r2,<- 
move_zero_supress,- 


insert _character,- 
set_fill_character,- 
insért_significant,- 
move_digits,- 
insert_minus,- 
insert_plus,- 
insert_sign,- 
set_fldat_character,- 
set_float_minus,- 
set_float_plus,- 
set_float_sign,- 

$ 1p-if.zero.- 
fill_field,- 
set_Significance,- 
end_edit,- 

digit,- 
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10D 5 
i 4 error 
eeesnned .’ 1 3 pushl #pli$_cnverr : conversion error 
D4 O01 clrl -(sp) 3 signal error 
090000" BF DD Q11 4 pushl ih $_error : 
00‘ GF 3 FB O11 4 calls #3,g*Tib$signal 3 
04 01 tg ret 
1 43 ; 
1 44 ; end edit 
1 45 ; 
1 ¢$ end_edit: 
53 f 2 01 4 subl 4 a ; calc size of return string 
1486C 10AC 20 6€ 5 ; : ; $8 eevts r3,(sp) ,#32,target_ size(ap) ,atarget, address(ap); copy it 
re on 


ert numeric and picture 
nterpret routines 
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: 
s zero _supress move 


5 move_zero_supress: 
bibs signi ficanc 
10$: cmpb (rl) ,#*a/0/ 
bneq 15$ 
nel ri 
movb FILL (fp), (r3)+ 
sobgtr r0,10$ 
a fetch next 
15$: bisb # e810 ficance(fp) 
tstb float (fp) 


beql move character 
movb float(fp),(r3)+ 


; move characters 
move_character: 
moves r0,(r1),(r3) 
brw fetch_next 
; insert_character 
insert_character: 
movb r0,(r3)+ 
brw fetch_next 
: set_fill_character 
set_fill_character: 
ov r0, fill (fp) 
brw fetch_next 
: significant_insert 


insert_significant: 
blbs 


signi tic nce(fp),10$ 
movb fi ip) ord 
10$: movb r0,(r3)+ 
brw fetch_next 
3; move_digits 
move_digits: 
blbs Sientyjcpreg tp? 108 
movb {.Set< tp) .f 
beql $ 
movb re otras 
incb significance(fp) 
move_character 


5$: 
10$: brb 


insert_minus: : 
capb sign(fp) ,#*a/-/ 


e@e 


WAGED ANARE ESR YOGA sans 


esbttl edit interpret routines 


ST nEr ONE snares tart Oe if significance on 


zero ? 
if neq then insert it 
pass zero digit 
insert fill character 
continue until done 


turn on significance 
float byte defined? 


r no 
insert floab byte 


move characters to output 


insert character 


br if significance on 
et fill character 
nsert character 


br if significance is on 
et float byte 

r if not defined 

insert float byte 
set significance on 
continue in common 


; negative 


eupsevirac 


1 


edit | 


ert numeric and picture 
nterpret routines 
9 p beql 
8 movb 
£ y 10$: movb 
3 ‘ brw 
: j ; insert plus 
9 insert_plus: 
95 ” cmpd 
99 beat 


movb 
10$: movb 
brw 
: insert sign 
insert_sign: 
movb 


brw 


tt ttt ti ttiti tt at > 
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brw 


10$: movb 


10$: movb 


movb 
brw 


skip. if_zero: 
tstb 
oo 
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set. float_character: 
movb 


set_float_ ~ aes 


: set float plus 
set_float_plus: 


; set float sign 
set_float_sign: 


: skip_if_zero 


ay o(r3)+ 
next 


; set float character 


r0, float(fp) 
fetch next 


: set float minus 


sign(tp). #*a/-/ 
r0;tLoat (fo) 
etch 


e 
f 
FUUCTp) “float fp) 
fetch_ 


sign fp). H*a/+/ 
ob ag oh 
tps: float (tp) 


ct rcte 
- — 


be arty -float(fp) 
next 


yore. Indic (tp) 


pa19be 14:57:15 EPLINTL. SRESP 


if eql then yes 
insert blank or star 
insert character if yes 


; continue 


positive? 


; if eql then yes 

: insert blankor fill 

; insert character if yes 
; continue 


insert sign byte 


negative? 
if neq then no 
set float if true 


save as fill character 


positive 
if neq om no 
set float if true 


zero? 
if neq then not zero 
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; set new edit pc 


br if he ght a is on 
et floa 
r if not defined 
tncort float byte 
turn on significance 


Sete Ge Se Ge Ge 


get next source digit 
zero? 

if neq then no 

insert blank 

move character 


3; get next source jrigit 
3 Negative source? 
: if neq then no 


r0 
wominus over_punch(r0], rb: get new character 


1EA 65 movaw iri09Cr0d, r10 
ifs $ 108: brw fetch _next 
iF B: : fill_field 
1F1 29 HLL. field: 
1F1 7 moveS #0,(r3), eSCUt tee. r0,(r3) 
ite ye ‘ brw etch “next 
ifs ie ; set_significance 
1FB 0 set_significance: 
1FB 7 blbs significance (tp). ,10$ 
1FF 4 movb float(f 
83 7 beql 5$ 
0 80 movb r2,(r3)+ 
08 4 5$: bisb #1,sign Crpeaneet ne 
0c § 10$: brw fetch_ne 
ae 
0 OF $2 : supress_digit 
OF Ha Supress atigite 
020F 88 ovb (r1)+,r0 
0 \ 89 rote r0,#*a/0/ 
021 90 bneq § 
8 7 91 movb #*a/ /,r0 
1A 3 10$: movb r ,(r3s+ 
0 18 a ; brw fetch_next 
02 0 3 + move _digit_minus 
8 39 move digit. minu 
98 euzbl atay rd 
0 99 mo sign( fp) .#*a/-/ 
0227 400 bneq 1 
401 subb #*a/0/, 
re movb 
403 10$: movb 
023 spe brw fetch _next 
£86 : move_digit_plus 
408 move_digit_pl 
1} Rake ty ea Cae 
410 cab ur’. #*a/+/ 
F 411 bneq 10 
41 tig subb #*a/0/, 
44 O41 movb w! wsPlus 0 + _punch(r0], r0: 
4A 414 108: movb 
<p te brw weet next 
2 at? 3; move_digit_sign 
2 219 move_digit_sign: 
+39 movab w*minus over punch,r2 
5 421 capb sign(fp) ,#*a7-/ 


insert character 


; get next , source character 
3; positive 
: if neq Ties no 


et new character 
3; Insert new character 


3; address minus set 
3 negative? 
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nterpret routines -SEP- PLIRTL SRI PLI CVTPIC.MAR;1 
05 = =13 9 4&4 beql oF 3; if eql then 
52 FDA1 CF E : 4 j soued w*plus_ sll punch,r2 ; edéress positive set 
3 1 A 6 424 10S: movzbl (ri)+ 3; get source character 
0 8 6 425 subb #°3/0/ : 
83 624 66 4 § movb (r2) 65° (r3)+ : insert new character 
FEGE 1 6A 4 brw fetch_next 3 


0 10 AC 
01 00 
14 BC 


aa 8 
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; 8 - ~sbttl pliScvt_fr.pic = convert picture to numeric 

4 1; pliScvt_frpic = convert picture to numeric 

4 $ 3 functional description: 

435 : This routine converts a picture character string described by 8(ap) and 12(ap) 
4 § ; to a numeric value described by 16(ap) and 20(ap) based on the picture constant 
: 5 ; addressed by picture_constant (ap). 

439 : inputs: 

rk : O(ap) = 

rr) 3 4(ap) = picture_constant address 

443; 8(ap) = source size 

446 ; 12(ap) = source address 

445 ; 16(ap) = target size 

reg 3 20(ap) = target address 

rr ; outputs: 

ret : target string is filled in. 

428 ; ERROR maybe signalled. 

454 3-- 

455 sentry pliscyt_trpic.om<iv.dv.r2.r3.r4.r5.r6.r7.r8.r9.r10,611> 
456 subl cvt_fr_pic_stack,sp ; allocate stack space 

457 clrb found_sign( fp 3 set no sign found 

$38 movl picture_constant(ap),r11; address picture constant 

269 : cale size of source string 

136 . movzbl pic$b_byte_size(ri11).r6 ; get picture designate size 

46 cmpw r6,source_size(ap) ; less or greater than source? 
464 bleq 108 : if leq then use it 

465 movzwl source_size(ap),r6 ; use smaller size 

466 10$: movl source_address(ap),r7 ; get source address 

467 subl ré6, ; allocate space for ascii text 


s 
movab (sp) ers copy address of space 


: set result to zero 


movzbl target_size(ap),r0 : get target size p value 
ashp #0, 1,0*packed_zero,#0,r0, target_address(ap); 


68 

69 

70 

4 

78 

74 ; ; 
0 ; loop through string, extracting digits and picking up sign 

13 locate_char: 

4 movzbl (r7)+,r3 ; get character ; 
locc r3,#valid char_size,w*valid, char_table: locate character in valid t 
: 
4 


select_acftion : neq then valid character found 


bne 
b ' 3; signal error 


rw error 
: 
: 
. 


get next character 
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AD 485; 
AD 486 next _character: 
EF 56 «FS Ae ? sobgtr r6,locate_char ; continue in more to scan 
. 2 : 3; converet number to numeric 
; a3 ; setup default sign based on presence of ‘+’ or I format 
FC AD 95 0280 493 ° tstb  found_sign( fp) : sign found? 
D is 8 494 bneq 18$ —s : lt nee then yes 
FC AD B 9 B 495 movb #*a/+/,found_sign(fp) ; essung positive 
04 05 AB 0 4 B9 £38 bbc #pic_v_minus,pic$b_ flags(ril),15$; br if not negative default 
FC AD D 0 8 cS rh 44 138 movb #*a/=/,found_sign(fp) =; 
0. Ss &3 C 499 subl3 = sp,r8,r0 : get size of character strin 
7E FC AD 9 C6 00 movb found_sign( fp) ,-(sp) 3; insert sign at front of buffer 
¢f 1 CA 01 beql :; if eql then answer is zero 
1F 9 D1 cc 8 cmpl r0,#31 ¢ more than maximum? 
0 15 O2CF 50 bleq 10$ : if leq then ok 
50 1F 00 02D1 504 mov #31,r0 3 convert maximum 
D8 AD «61F)6| 66E) =650—s«éOND 8 + 202 10$: cvtsp r0,(sp),#31,inter_result(fp); convert to packed 
8 aS 307 ; scale intermediate result to requested precision 
50 11 AC QA OQ2DA 509 movzbl target_size+1(ap),r0 3 
51 01 AB YA O Dg 510 nod pic OS hill : 
51 50 51 C3 O2E 511 subl ri.r0.r 3 cale shift count 
50 10AC 9A O2E6 218 movzbl torgetsize(ap) ro ; get prec of target 
50 00 08 AD We a F8 osen 51 ashp ri, T7inter_result(fp),#0,r0, target_address(ap); 
04 $53 514 100$: ret ; done 
O2F4 515; 
8 2 218 3; select action based on character type 
O2F4 a1 select_action: t 
O2F4 519 case r0,<- 3; case on character location in table 
8 F4 520 error,> 3; zero is bad case 
F4 = 5521 pass_nega_digit,- ; pass overpunched digit 
O2F4 5 ¢ pass_nega_digit,- 3 pass overpunched digit 
O2F4 5 pass_nega_digit,- 3 pass overpunched digit 
F4 524 pass_nega_digit,- 3 pass overpunched digit 
F4 525 pass_nega_digit,- 3 pass overpunched digit 
FE 526 pass_nega_digit,- 3 pe.» werpunched digit 
F4 7 pass_nega_digit,- 3 Poss overpunched digit 
F4 8 pass_nega_digit,- 3 pa wsverpunched digit 
O2F4 7 pass_nega_digit,- 3: pass overpunched digit 
F4 0 pass_nega digit. 3 pass overpunched digit 
F4 31 pass_pos_digit,- 3 pass overpunched digit 
f4 3 pass_pos_digit,- 3 pass overpunched digit 
FG pass_pos_digit,- 3 pass overpunched digit 
F4 4 pass_pos_digit,- 3; pass overpunched digit 
F4 5 pass_pos_digit,- 3 pass overpunched digit 
F4 § pess_pos_digit,- 3 pass overpunched digit 
F4 pass_pos_digit,- 3 pass overpunched digit 
F4 } pass_pos_digit,- 3 pass overpunched digit 
F4 pass_pos_digit,- 3 pass overpunched digit 
F4 40 pass_pos_digit,- 3 pass overpunched digit 
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F4 41 next_character,=- ; skip star 
F4 5 next_character,=- ; skip space 
FG 4 db_test,- ; test for db 
F4 44 db_test,- ; test for db 
F4 45 cr_test,- 3; test for cr 
F4 ¢$ cr _test,- ; test for cr 
Fa 4 next_character,- ; skip 
F4 278 next_character,=- ; skip, 
F4 49 next_character,- 3; skip. 
O2F4 229 next_character,- 3; skip / 
O2F4 51 pass_sign,- : found - 
8 F4 226 pass_sign,- 3 found + 
F4 pass_digit,- 3 move normal digit 
O2F4 554 pass_digit,- 3 move normal digit 
O2F4 555 pass_digit,- 3 move normal digit 
O2F4 228 pass_digit,- 3; move normal digit 
O2F4 5 pass_digit.- 3 move normal digit 
O2F4 558 pass_digit,- 3 move normal digit 
O2F4 559 pass_digit,- 3 move normal digit 
O2F4 560 pass_digit,- ; move normal digit 
8 F 561 pass_digit,- ; move normal digit 
F4 206 pass_digit,- 3; move normal digit 
8 a a7 pass_digit> 3 move normal digit 
b325 20? 3 case subroutines 
0350 567 pass_digit: 
88 53 90 6329 568 movb r3,(r8)+ 3 pass digit 
FFS7 = 31 oae2 283 ‘ brw next_character : 
ass_sign: 
FC AD 95 baee 571 ~ stb found_sign( fp) : sign found already? 
07 12 0359 276 bneq 10$ ; if neq then error 
FC AD 53 90 O358 57 movb r3,found_sign( fp) 3; save sign character 
FF4B 4 Be26 574 brw next_character 3 
FDA8 1 0 6e 575 10$: brw error : signal error 
b3¢8 358 bl sb 
-ena 
baee 578 db_test: 
56 02 D1 0365 579 cmpl #2,r6 ; one character left? ; 
1F 2 Ben 280 bneq 5$ : if neq then must be digit 
62 8F 67 91 O36A 581 cmpb (r7) ,#*a/b/ : lower b? 
8 13 B356 286 beql 10$ : if eql then ok 
42 8F 6 91 7 8 cmpb (r7) ,#*a/B/ 3 upper b? 
3 643 tt 4 beql 10$ : if eql then yes 
2.) UW 78 5 a brb 5$ 3; treat as positive digit 
cr_test: 
56 02 O01 7? 5 ° $ cmpl #2,76 ; one character left? ‘ 
Oc 12 78 «6588 bneq 5$ : if neq then must oe digit 
72 8F 67 9! 8 70 86589 cmpb (r7) ,#*a/r/ : lower r? 
08 13 1 0 beql 10$ ; if eql then ok 
52 8F 6 91 3 91 cmpb (r7) ,#*a/R/ ; upper r? 
02. 13 7? 3 beql 1 ; if eql then ok : 
3 11 9 935 5$: brb pass_pos_digit 3 pass positive overpunch digit 
dg 94 108: incl r 3 pass second character 
6 D 95 decl r6 3; sount the character 
FC AD 2D 0 F 96 movb #*a/-/,found_sign(fp) ; set sign 
FFI? =631 «0393 = 5597 brw next_character ; try next character 
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ErSEb=198e 14:57:15 EBLIRTE.SRePLicvTPiC.maR;1 9% (3) i: 
error ; not valid string 
lsb 
found_sign(tp) ; sign character seen? 


3; if neq then no 
#pec mt FORMA TETS Mit TOROS OES FL OGSEE TITS legal in set? 
10$ ; if eql then no 


y at *7 Found. sien( te) ; set sign character 

over_punch_value(r0 ,(r85+; insert character based on table index 
next_character ; 

error : signal error 


found_sign( fp) : sign character seen? 
0$ : neq then no 

ad 16 RK. fornetiptc ar, torest etess Vagetrtt); legal in set? 

1 ; if eql then no 

incty hides gp ht oy ; set sign character 

over_punch_valueCr0 ,(r85+; insert character based on table index 

next_character ; 

error 3; signal error 
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pli$valid. pic - validate picture value 
functional descripticn: 


valu 
inputs: 
O(ap) = 3 
4(ap) = picture constant address 
8(ap) = size of the test striae 
12(ap) = address of the test string 
outputs 


r0 = validity indicator 
ERROR maybe signalled. 
eentry Bap) re pic,“m<r2,r3,r4,r5,r6> 


mov l 5 address picture constant 
subl ine ; allocate enough space for convert 
movl ; et 3; copy address of target string 
pushl fr 3 convert to numeric 
movzwl the pq(ré6),-(sp) ; target p.q 
pushl 2(apy 3 pass source address 
pushl 8(ap 3 pass source size 
pushl r6 3 pass constant address 
calls a7 68 “pliScvt_fr_pic 3 convert to numeric 
movzbl p i¢$b _byte_ stzetres. r4 ; get size of result 
subl r4,s ; allocate space 
movl sp.r 3 copy result address 
pushl 3; convert to picture 
pusht Fr4 3 
pushl fr§ : 
movzwl pic$w_pq(r6),r2 3 
pushl r2 3 
pushl r6 
calls #00 “oli$cvt_to 
cmpcS or A ),#32,8(ap Sr2¢0p5 compare strings. 
bneq o$ neq then continue 
ot #1,°0 3; set success 
re 

10$: clrl r0 : set failure 
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; _Psect synopsis ! 
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PSECT name Allocation PSECT No. Attributes 

» 8 « 444 ( -) 00 ¢ 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000G0 ( -) O1¢ +1.) NOPIC USR CON ABS LCL NOSHR EXE’ RD WRT NOVEC BYTE 
-PLISCODT QO00041A (¢ 1050.) 02 ¢ 2.) PIC USR CON REL LCL SHR - EXE RD NOWRT NOVEC LONG 


Phase Page faults CPU Time Elapsed Time 
Initialization 10 00:00:00.09 0:00:01.10 
Command processing 70 9 288: 0.50 0:00: 6°38 
Pass 112 00:00:02.87 0:00:10.30 
pyabol table sort 0 BF OO: By 86 89:80:00 -07 
Pas 112 00:00:01. 00:00:03.75 
Symbol table output OF 80: 80-08 00:00:00.08 
Psect synopsis output 00:00:00.0 88 : 88 280 .0¢ 
Cross-reference output 2 00:00:00.00 00:00:00.0 
Assembler run totals 31 00:00:04.96 00:00:19.70 


The working (83 Limit was 1050 pages. 

16018 bytes, (32 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space er leseiee to hold 85 non-local and 35 Local symbols. 
668 source ens were read in Pass 1, producing 21 object records in Pass 2. 

11 pages of virtual memory were used to define 10 macros. 
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Macro Library name Macros defined 
"$255$DUA28: PLIRTL.OBJJPLIRTMAC.MLB; 1 3 
“$255$DUA28: CSYSLIBIJSTARLET. MLB; 2 4 

TOTALS (all Libraries) 7 


94 GETS were required to define 7 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=TRACEBACK/LIS=LIS$:PLICVTPIC/OBJ=OBJ$:PLICVTPIC MSRC$:PLICVTPIC/UPDATE=(ENH$:PLICVTPIC)+LIBS:PLIRTM 
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